proc fib() {
	int a = 1
	int b = 0
	int c = 0
	while (b < $1) {
		print b
		c = b
		b = a+b
		a = c
	}
	print "\n"
}
